MacFormat 1996 January/macformat-033.iso/mac/Demos/Voodoo Lounge/VLMOVIES/16_VIPLG.Dxr/00001_Unique Main Movie Scripts.ls

Text File | 1995-10-25 | 1.3 KB | 38 lines

global gCurrentNodeObject, gRoomMusicIndex, gAccessLevel, gChannelOneVolume, gChannelTwoVolume, gCurrentAmbientSoundCast, gStageFlag, gCurrentEventLists, gStartTime, gCurrentMovieScreenObjectsList

on initializeThisMovieUponEntering
  set gCurrentNodeObject to getAt(gListOfNodeObjects, 16)
  set gRoomMusicIndex to 4
  set gChannelOneVolume to 180
  set gChannelTwoVolume to 100
  set gCurrentAmbientSoundCast to the number of cast "16.AIF"
  initializeGODscripts()
  initializeCurrentMovie(determineCurrentScreenObjectTextCastList())
  mSetFirstVisitPerLevelFlagList(gCurrentNodeObject, gAccessLevel, 1)
end

on initializeGODscripts
  set gCurrentEventLists to [#NONE]
  set gStartTime to the ticks
  determineCurrentEventLists()
end

on checkConditionalBehaviorHandlers
end

on determineCurrentScreenObjectTextCastList
  set listOfFirstVisitScenesLists to [["KEITHRON", "MICK41", "MICKSoundByte", "CHARLIE32", "exit to COURTYARD"]]
  return getAt(listOfFirstVisitScenesLists, random(count(listOfFirstVisitScenesLists)))
end

on determineCurrentEventLists
  set listOfFirstVisitEventLists to [[#NONE]]
  set listOfReturnVisitEventLists to [[#NONE]]
  set gCurrentEventLists to listOfFirstVisitEventLists
end

on runJamVideo
  mNavigateToLocationInRoom(gCurrentNodeObject, #left, 600)
  mPlayQuickTimeAnimateInteractive(getAt(gCurrentMovieScreenObjectsList, 1))
end